object JournalForm: TJournalForm
  Left = 78
  Top = 77
  Width = 485
  Height = 326
  Caption = 'Diary Journal Editor'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 477
    Height = 33
    ButtonHeight = 27
    ButtonWidth = 117
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    EdgeOuter = esRaised
    Indent = 2
    TabOrder = 0
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 453
      Height = 27
      BevelOuter = bvNone
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      object FontPanel: TPanel
        Left = 0
        Top = 2
        Width = 159
        Height = 21
        Hint = 'This Journal Pages Font'
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Color = clWhite
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = Font1Click
      end
      object Printbtn: TBitBtn
        Left = 168
        Top = 2
        Width = 25
        Height = 21
        Hint = 'Print This Page'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = PrintbtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        NumGlyphs = 2
      end
      object BitBtn4: TBitBtn
        Left = 200
        Top = 2
        Width = 25
        Height = 21
        Hint = 'New Journal Page'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = NewJournalPage1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
          F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
          F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
          F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
          F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
          F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
          F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
          333337FFFFFFFF77333330000000000333333777777777733333}
        NumGlyphs = 2
      end
      object BitBtn3: TBitBtn
        Left = 225
        Top = 2
        Width = 25
        Height = 21
        Hint = 'Change Pages Title'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = JournalTitle1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
          055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
          005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
          B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
          305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
          305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
          30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
          3055577777555557F7F555000555555999555577755555577755}
        NumGlyphs = 2
      end
      object BitBtn2: TBitBtn
        Left = 250
        Top = 2
        Width = 25
        Height = 21
        Hint = 'Change Pages Date'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = JournalDate1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF
          F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF
          F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF
          F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070
          F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0
          F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
          F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
          333337FFFFFFFF77333330000000000333333777777777733333}
        NumGlyphs = 2
      end
      object BitBtn1: TBitBtn
        Left = 275
        Top = 2
        Width = 25
        Height = 21
        Hint = 'Erase This Page'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = EraseThisPage1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
          305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
          005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
          B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
          B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
          B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
          B0557777FF577777F7F500000E055550805577777F7555575755500000555555
          05555777775555557F5555000555555505555577755555557555}
        NumGlyphs = 2
      end
      object SelectJournalbtn: TBitBtn
        Left = 305
        Top = 2
        Width = 108
        Height = 21
        Caption = 'Select Journal'
        TabOrder = 6
        OnClick = SelectJournalbtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
          33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
          8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
          F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
          F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
          0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
          B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
          B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
          333333333777733333333333FBFBFB3333333333333333333333}
        NumGlyphs = 2
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 261
    Width = 477
    Height = 19
    Panels = <
      item
        Width = 120
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object JournalText: TMemo
    Left = 0
    Top = 33
    Width = 477
    Height = 228
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 2
    OnKeyPress = JournalTextKeyPress
  end
  object MainMenu1: TMainMenu
    Left = 144
    Top = 148
    object Options1: TMenuItem
      Caption = '&Options'
      object Font1: TMenuItem
        Caption = '&Font'
        OnClick = Font1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object NewJournalPage1: TMenuItem
        Caption = '&New Journal Page'
        OnClick = NewJournalPage1Click
      end
      object JournalTitle1: TMenuItem
        Caption = 'Journal &Title'
        OnClick = JournalTitle1Click
      end
      object JournalDate1: TMenuItem
        Caption = 'Journal &Date'
        OnClick = JournalDate1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object EraseThisPage1: TMenuItem
        Caption = '&Erase This Page'
        OnClick = EraseThisPage1Click
      end
      object ClearTheJournal1: TMenuItem
        Caption = 'Clear The &Journal'
        OnClick = ClearTheJournal1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object JournalOnTop1: TMenuItem
        Caption = 'Journal &On Top'
        OnClick = JournalOnTop1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object HowToRegister1: TMenuItem
        Caption = 'How To &Register'
        OnClick = HowToRegister1Click
      end
      object TheDiaryJournal1: TMenuItem
        Caption = 'The Diary &Journal'
        OnClick = TheDiaryJournal1Click
      end
    end
  end
  object FontD: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Left = 68
    Top = 144
  end
end